﻿Public Class Sesion
    'Propiedades:
    Private idSesion As Integer
    Private idAventura As Integer
    Private descripcion As String
    Private fecha As Date
    Private duracion As Integer

    'Constructor
    Public Sub New(ByVal idSesion As Integer, _
                   ByVal idAventura As Integer, _
                   ByVal descipcion As String, _
                   ByVal fecha As Date, _
                   ByVal duracion As Integer)
        MyBase.New()
        Me.idSesion = idSesion
        Me.idAventura = idAventura
        Me.descripcion = descripcion
        Me.fecha = fecha
        Me.duracion = duracion
    End Sub

    'Metodos:

    '________SETTERS_________

    Public Sub setidSesion(ByVal idSesion As String)
        Me.idSesion = idSesion
    End Sub
    Public Sub setidAventura(ByVal idAventura As Integer)
        Me.idAventura = idAventura
    End Sub
    Public Sub setDescripcion(ByVal descripcion As String)
        Me.descripcion = descripcion
    End Sub
    Public Sub setFecha(ByVal Fecha As Date)
        Me.fecha = Fecha
    End Sub

    '________GETTERS_________
    Public Function getidSesion() As Integer
        Return Me.idSesion
    End Function
    Public Function getidAventura() As Integer
        Return Me.idAventura
    End Function
    Public Function getnumAtac() As String
        Return Me.descripcion
    End Function
    Public Function getdescripcion() As String
        Return Me.descripcion
    End Function
    Public Function getFecha() As Date
        Return Me.fecha
    End Function
End Class
